# Create bar graph
p <- plot_ly(data = measles,
x = ~Year,
y = ~Cases,
type = 'bar',
name = 'Year Cases') %>%
add_trace(y = ~Monthly,
name = 'Monthly Cases') %>%
add_lines(y = ~median(Cases),
x = ~c(min(Year)-.5, Year, max(Year)+.5),
line = list(color = '#144E75',
dash = 'dash',
width = 2),
name = "Year Median") %>%
add_lines(y = ~median(Monthly),
x = ~c(min(Year)-.5, Year, max(Year)+.5),
line = list(color = '#144E75',
width = 2),
name = "Monthly Median") %>%
layout(title = list(text = graphTitle,
font = list(size=20)),
margin = list(l = 10, r = 10, b = 50, t = 110, pad = 4),
yaxis = list(title = 'Cases Count'),
xaxis = list(tickangle = 45),
barmode = 'group')